TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/systems/mac/euro-oztex/EOT2.1#2.sea.bin/HyperBibTeX/Pile bibliographique/background_46312.xml

Extensible Markup Language | 1994-10-06 | 4KB | 14 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>46312</id>
    <filler1>0</filler1>
    <bitmap>BMAP_35752.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_22310.css" />
    <name>HB Title Card</name>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Background "HB Title Card"Background fields:[Key,Entry Type,Author,Title,Year,Card Number,Total Cards](These first five are invisible, dummy fields to ensure that this cardis sorted first in the stack.)Background buttons:Handlers:openBackground, closeBackground, openCard, closeCard, closeField,deleteCard, doMenu, commandKeyDown∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on openBackgroundshow menubarsetVisible "Annotation,User Fields,Promptoid",falsedisable menu "Change"end openBackgroundon closeBackgroundif short name of this bg≠"HB Title Card"then set name of this bg to "HB Title Card"enable menu "Change"end closeBackgroundon closeTextoid wname--bypass closeTextoid handler in Utils stack scriptglobal annoteRect,userFieldsRectif wname is "Annotation" and the version of HyperCard >= 2.1then put rect of window "Annotation" into annoteRectif wname is "User Fields" and the version of HyperCard >= 2.1then put rect of window "User Fields" into userFieldsRectend closeTextoidon openCard--bypass openCard handler in stack scriptset cursor to watchpush recent cdput short name of this stack into cd fld "Stack Name"put "article,book,proceedings,inbook,incollection,inproceedings,"¬&"mastersthesis,phdthesis,techreport,manual,unpublished,misc" into bgListrepeat with x = 1 to (number of lines in cd fld "Entry Types")if there is a bg (line x of cd fld "Entry Types") thenput (number of cds in bg (line x of cd fld "Entry Types")) ¬into line x of cd fld "No. Cards"elseput 0 into line x of cd fld "No. Cards"end ifend repeatput numBibCds() into line 1 of cd fld "No. Marked/Total Cards"put numMrkdCds() into line 2 of cd fld "No. Marked/Total Cards"end openCardon closeCard--bypass closeCard handler in stack scriptif short name of the target≠"HB Title Card"then set name of the target to "HB Title Card"end closeCardon closeField--bypass closeField handler in stack scriptend closeFieldon deleteCard--beepend deleteCardon doMenu menuItem--bypass doMenu handler in stack scriptif menuItem is "Delete Card" or menuItem is "Cut Card" ¬or menuItem is "Copy Card" or menuItem is "New Card" thenbeepexit doMenuelse pass doMenuend doMenuon commandKeyDown Key--bypass commandKeyDown handler in stack scriptif Key = "n" then beep  --new cardelse if Key = "k" then beep  --mark cardelse if charToNum(Key) = 8 then beep --command-Delete to delete cardelse pass commandKeyDownend commandKeyDownon keyDown Keyif there is a window "Index" and the optionKey is down thenget offset(Key,"å∫ç∂´ƒ©˙ˆ∆˚¬µ˜øπœ®ß†¨√∑≈¥Ω") --for English HCif it ≠ 0 then put numToChar(it + 64) into Keysend Key to window "Index"else pass keyDownend keyDown</script>
</background>